﻿Module Module1
  Sub Main()

    Dim nl As String = Environment.NewLine
    Dim messaggio As String = ""
    Dim testo As String = _
        "Nuovo libro su VB"
    Dim arrayStringhe() As String
    Dim separatore() As Char = {" "c}
    arrayStringhe = testo.Split(separatore, _
        StringSplitOptions.None)
    For i As Integer = 0 _
            To (arrayStringhe.Length - 1)
      messaggio &= arrayStringhe(i) & nl
    Next
    Console.WriteLine(messaggio)
    Console.ReadLine()

  End Sub
End Module
